﻿Public Class Imagen
    Private _rutaCompleta As String

    Public ReadOnly Property nombreArchivo As String
        Get
            Dim last As Integer
            Dim nombre As String

            last = _rutaCompleta.LastIndexOf("\")
            nombre = _rutaCompleta.Substring(last + 1)
            Return nombre

        End Get
    End Property

    Public ReadOnly Property nombreImagen As String
        Get
            Dim last As Integer
            Dim nombre As String
            Dim nombreSplit() As String
            Dim nombreFinal As String


            last = _rutaCompleta.LastIndexOf("\")
            nombre = _rutaCompleta.Substring(last + 1)
            nombreSplit = nombre.Split(".")
            nombreFinal = nombreSplit(0)

            Return nombreFinal
        End Get
    End Property

    Public Sub New(ByVal ruta As String)
        Me._rutaCompleta = ruta
    End Sub

End Class
